Option Explicit

'################################################################
' Descriptor
' 二元数据结构
' 只能保存基本数据类型的数据
'################################################################

'################################################################
' Field
'################################################################
Private k1 As Variant
Private k2 As Variant

'################################################################
' Property
'################################################################

Public Property Get Key1() As Variant
    Key1 = k1
End Property

Public Property Let Key1(ByRef o As Variant)
    k1 = o
End Property

Public Property Get Key2() As Variant
    Key2 = k2
End Property

Public Property Let Key2(ByRef o As Variant)
    k2 = o
End Property